home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / io.def < prev    next >
Text File  |  1993-11-04  |  992b  |  33 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    Io.def
  3.   :Contents.   Abspeichern und Laden einer Gadget-Struktur
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9. ----------------------------------------------------------------------*)
  10.  
  11. DEFINITION MODULE Io;
  12. (* Modul zur Ein/Ausgabe der Gadgetinformationen *)
  13.  
  14. FROM SYSTEM     IMPORT ADDRESS, BYTE;
  15. FROM FileSystem IMPORT Response;
  16.  
  17. PROCEDURE Load (    name   : ARRAY OF CHAR;
  18.                 VAR Feld   : ARRAY OF BYTE;
  19.                 VAR WFeld  : ARRAY OF BYTE;
  20.                 VAR length : LONGINT) : Response;
  21. (* Einladen der Gadgetinformation in ein Feld *)
  22.  
  23.  
  24. PROCEDURE Save (name   : ARRAY OF CHAR;
  25.                 adr1   : ADDRESS;
  26.                 len1   : LONGINT;
  27.                 adr2   : ADDRESS;
  28.                 len2   : LONGINT) : Response;
  29. (* Speichern der Gadgetinformationen *)
  30.  
  31.  
  32. END Io.
  33.